home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / C / TCCLIB.ZIP / GETCHF.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-31  |  267 b   |  19 lines
  1. #include <stdio.h>
  2. #include <string.h>
  3.  
  4. int GComm( void );
  5.  
  6. char getchf ( char *list, char defchar )
  7. {
  8.     char ch;
  9.  
  10.     ch = GComm();
  11.     if ( (strchr (list, ch)) == NULL ) {
  12.         ch = defchar;
  13.         putc (7, stdout);
  14.     }
  15.  
  16.     return (ch);
  17. }
  18.  
  19.